Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00304_Cursor Hilite Class.ls

Text File | 1997-07-10 | 465 b | 29 lines

property turnedOn, ancestor

on new me, parameterList
  set turnedOn to 0
  return me
end

on TurnOn me
  set cursMem to the number of member "hand cursor"
  set matteMem to the number of member "hand cursor matte"
  cursor([cursMem, matteMem])
  set turnedOn to 1
end

on TurnOff me
  if turnedOn then
    cursor(-1)
    set turnedOn to 0
  end if
end

on dispose me
  TurnOff(me)
  if objectp(ancestor) then
    dispose(ancestor)
  end if
  set ancestor to 0
end